home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / Amos / AMOSList-0497 / AMOSLIST / 000144_amos-request@svcs1.digex.net_Sun Apr 20 09:32:10 1997.msg < prev    next >
Text File  |  1998-06-24  |  3KB  |  110 lines
  1. Received: from svcs1.digex.net (svcs1.digex.net [204.91.197.224])
  2.     by mail2.access.digex.net (8.8.5/8.8.5) with ESMTP id JAA19658
  3.     for <mcox@access.digex.net>; Sun, 20 Apr 1997 09:32:09 -0400 (EDT)
  4. Received: (from daemon@localhost)
  5.     by svcs1.digex.net (8.8.5/8.8.5) id IAA03089
  6.     for amos-out; Sun, 20 Apr 1997 08:01:13 -0400 (EDT)
  7. Received: from mail1.access.digex.net (mail1.access.digex.net [205.197.247.2])
  8.     by svcs1.digex.net (8.8.5/8.8.5) with ESMTP id IAA03086
  9.     for <amos-list@svcs1.digex.net>; Sun, 20 Apr 1997 08:01:12 -0400 (EDT)
  10. Received: from top.quark.it (root@[195.36.4.1])
  11.     by mail1.access.digex.net (8.8.5/8.8.5) with SMTP id IAA22040
  12.     for <amos-list@access.digex.net>; Sun, 20 Apr 1997 08:01:08 -0400 (EDT)
  13. Received: from not.configured.com ([195.36.6.38]) by top.quark.it (8.6.11/8.6.11) with SMTP id OAA26788 for <amos-list@access.digex.net>; Sun, 20 Apr 1997 14:06:36 +0200
  14. Date: 17 Apr 97 22:33:21 +0100
  15. From: fbazzo@quark.it (Fabrizio Bazzo)
  16. Subject: Re: date
  17. To: amos-list@access.digex.net (AMOS list)
  18. In-Reply-To: <334be544@karkis.canit.se>
  19. Message-ID: <1834.7046T1353T1070@quark.it>
  20. MIME-Version: 1.0
  21. Content-type: text/plain; charset=us-ascii
  22. Content-transfer-encoding: 7bit
  23. X-Mailer: THOR 2.3 (Amiga;TCP/IP)
  24. Lines: 82
  25. Status: RO
  26. X-Status: 
  27.  
  28.  
  29. >I want to read the date in my computer with amos  without using 'copy date to
  30. >ram'
  31.  
  32. >I did get some answer before but I couldn't get it to work.
  33.  
  34. This is a ready-to-use procedure that was originally on
  35. the Extras disk of Amos1.3: cut,paste and enjoy ;)
  36.  
  37. '----------------------------------
  38. ' How to get TIME and DATE in AMOS
  39. '----------------------------------
  40. '
  41. _DATE$ : Print Param$
  42. _TIME$ : Print Param$
  43. '
  44. Procedure _DATE$
  45.    '
  46.    ' Call DOS DateStamp function
  47.    T$=Space$(12)
  48.    Dreg(1)=Varptr(T$)
  49.    RIEN=Doscall(-192)
  50.    NJ=Leek(Varptr(T$))
  51.    '
  52.    ' Find this year's first day
  53.    A=1978 : JOUR=7
  54.    Do
  55.       BIS=0 : If(A and 3)=0 : BIS=1 : End If
  56.       Exit If NJ-365-BIS<0
  57.       Add JOUR,1+BIS : If JOUR>7 : Add JOUR,-7 : End If
  58.       Add NJ,-365-BIS
  59.       Inc A
  60.    Loop
  61.    '
  62.    ' Find month
  63.    M=1
  64.    Do
  65.       Read N
  66.       Exit If NJ-N<0
  67.       Add NJ,-N : Inc M
  68.    Loop
  69.    Inc NJ
  70.    '
  71.    ' Fabrique la chaine
  72.       J$=Mid$(Str$(NJ),2) : If Len(J$)<2 : J$="0"+J$ : End If
  73.       M$=Mid$(Str$(M),2) : If Len(M$)<2 : M$="0"+M$ : End If
  74.       A$=Mid$(Str$(A),2)
  75.       DATE$=J$+"-"+M$+"-"+A$
  76.    '
  77.    ' Length of each month
  78.    Data 31,28+BIS,31,30,31,30,31,31,30,31,30,31
  79.    '
  80. End Proc[DATE$]
  81. Procedure _TIME$
  82.    '
  83.    ' Call DOS function
  84.    T$=Space$(12)
  85.    Dreg(1)=Varptr(T$)
  86.    RIEN=Doscall(-192)
  87.    MN=Leek(Varptr(T$)+4)
  88.    SEC=Leek(Varptr(T$)+8)
  89.    '
  90.    ' Minutes calculation
  91.    H=MN/60 : H$=Mid$(Str$(H),2) : If Len(H$)<2 : H$="0"+H$ : End If
  92.    M=MN mod 60 : M$=Mid$(Str$(M),2) : If Len(M$)<2 : M$="0"+M$ : End If
  93.    '
  94.    ' Seconds calculation
  95.    S=SEC/50 : S$=Mid$(Str$(S),2) : If Len(S$)<2 : S$="0"+S$ : End If
  96.    '
  97.    ' Final string
  98.    TIME$=H$+":"+M$+":"+S$
  99.    '
  100. End Proc[TIME$]
  101.  
  102.  
  103.  
  104.  
  105.      ________________
  106.   __//______________
  107.   \// abrizio Bazzo   /* fbazzo@quark.it */
  108.  
  109. Where can I fnid a spell chequer for taglines?
  110.